// Copyright  1995 Apple Computer, Inc. All rights reserved.

// Open the resource file that contains the sound, and assign the
// file ID to a temporary variable rf
// NOTE: specify the full pathname from your hard drive down...
rf := OpenResFileX(home & "src.rcr"); 

// Read in the 11KHz sampled sound
DefConst('kBoingSound, GetSound11("Boing")) ;
DefConst('kMetalSound, GetSound11("Metal")) ;
// close up any resource files that were opened (VERY important)
CloseResFileX(rf);

rf:=OpenResFileX(home & "src.rcr");

//DefConst('kTheShapes, [
//	GetNamedResource("PICT", "brea",'picture),		// but GetNamedResource doesn't.
//	GetNamedResource("PICT", "ico",  'picture),
//]);
DefConst('ico, GetNamedResource("PICT", "ico",  'picture));
DefConst('brea, GetNamedResource("PICT", "brea",  'picture));
CloseResFileX(rf);
